home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 2-Graphics / Graphics Library / Computers / Product Clip Art (MacPaint) / Product Clip Art (MacPaint) / background_3064.txt < prev    next >
Text File  |  1989-12-08  |  2KB  |  120 lines
  1. -- background: 3064 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=25 top=0 right=271 bottom=247
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: A
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put the mouseV into y
  23.   add 10 to y
  24.   divide y by 16
  25.   put the trunc of y into y
  26.   get line y of field a
  27.   set lockscreen to true
  28.   go next background
  29.   find it
  30.   set lockscreen to false
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 01
  37. -- high flags: 0000
  38. -- rect: left=267 top=0 right=257 bottom=489
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: B
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   put the mouseV into y
  50.   add 10 to y
  51.   divide y by 16
  52.   put the trunc of y into y
  53.   get line y of field B
  54.   set lockscreen to true
  55.   go next background
  56.   find it
  57.   set lockscreen to false
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: A000
  65. -- rect: left=86 top=315 right=336 bottom=208
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: show all cards
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   show all cards
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 4 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=339 top=315 right=336 bottom=383
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 19104 / 19104
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: PREVIOUS CARD
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   visual wipe right
  96.   go to previous card
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 5 (button)
  102. -- low flags: 00
  103. -- high flags: A000
  104. -- rect: left=213 top=315 right=336 bottom=252
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: exit
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   answer "Are you sure you want to exit?" with "Quit" or "Home" or "Cancel"
  116.   if it is "Quit" then domenu quit HyperCard
  117.   if it is "home" then domenu home
  118. end mouseUp
  119.  
  120.